home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HypertalkTools.cpt / Script Report 1.2 / card_5069.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  110 lines
  1. -- card: 5069 from stack: in.2
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2742
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 2004
  11. -- rect: left=73 top=105 right=247 bottom=444
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 256
  18. -- line height: 18
  19. -- part name: 
  20.  
  21.  
  22. -- part 6 (button)
  23. -- low flags: 00
  24. -- high flags: A004
  25. -- rect: left=184 top=260 right=282 bottom=319
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Continue
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global pScript
  37.   put the long name of this stack into pReport
  38.   delete word 1 of pReport
  39.   put "go stack " before pReport
  40.   go next card
  41.   doMenu New Stack...
  42.   if the short name of this stack is "Script Report" then
  43.     play harpsichord "ee c"
  44.     exit mouseUp
  45.   end if
  46.   put the long name of this stack into outFile
  47.   delete word 1 of outFile
  48.   delete first char of outFile
  49.   delete last char of outFile
  50.   set lockScreen to true
  51.   doMenu Delete Stack...
  52.   do pReport
  53.   go card "Script Screen"
  54.   set lockScreen to false
  55.  
  56.   open file outFile
  57.   write pScript to file outFile
  58.   close file outFile
  59.  
  60.   play harpsichord "ee c"
  61.   answer "File output complete." with OK
  62. end mouseUp
  63.  
  64.  
  65.  
  66.  
  67. -- part 5 (button)
  68. -- low flags: 00
  69. -- high flags: 2002
  70. -- rect: left=229 top=293 right=335 bottom=271
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 1016 / 1016
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Another
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   go prev card
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 9 (field)
  87. -- low flags: 01
  88. -- high flags: 2004
  89. -- rect: left=73 top=55 right=88 bottom=444
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 3
  94. -- text size: 18
  95. -- style flags: 256
  96. -- line height: 24
  97. -- part name: 
  98.  
  99.  
  100. -- part contents for card part 2
  101. ----- text -----
  102. The next dialog box will ask you for a new stack name.
  103.  
  104. Simply navigate to the disk/folder
  105. in which you want the text file placed, type the name you wish to use,
  106. and click ‚ÄúNew‚Äù.
  107.  
  108. -- part contents for card part 9
  109. ----- text -----
  110. Save Scripts to a Text File